<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.hc</name>
<id>-1</id>
<cardCount>10</cardCount>
<cardID>2905</cardID>
<listID>8059</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>640</width>
<height>480</height>
</cardSize>
<script>--------------------------------------------------------------------------------------------------------Multicom Publishing Inc.®----------------------------------------------------------------------------------------------------------------------------------System Handlers:-----------------------------on startUpgo to stack "HOME"send startUp to stack "HOME"end StartUpon openStackhide menuBarhide titleBarcolorizeHCinitGlobalsopenPictureresetSystemPaletteloadPalettemercurySndloadTxtend openStackon resetSystemPaletteset cursor to busypicture "SYSTEM_COLORS",resource,rect,false,8set the rect of window "SYSTEM_COLORS" to "639,479,640,480"show window "SYSTEM_COLORS" -- show is needed to reset palette!close window "SYSTEM_COLORS"noPaintWhiteif there is a window "black" then ¬close window "black"end resetSystemPaletteon closeStacknoPaintWhiteif there is a window "merMenu"then close window "merMenu"end closeStackon openPicture winName -- handle openPicture sent by Picture XCMDglobal gCurrWindowif winName <> "SYSTEM_COLORS" thenput winName into gCurrWindowend ifend openPictureon colorizeHCglobal gOKToColorizeif (gOKToColorize is empty) then pass colorizeHCend colorizeHCon initGlobalsglobal gGlobalsOKif gGlobalsOK is true then exit initGlobalsif LastHilites = "" then put "0,0,0,0,0,0,0" &return &"0"&return&"1" into LastHilitesput true into gGlobalsOKend initGlobals--------------------------Navigational Handlers---------------------------on loadPalettenoPaintWhitepalette "merMenu", "0,417" --opens navigational paletteif there is a window "runMenu" then ¬close window "runMenu"end loadPaletteon prepWinpicture "black",resource,rect,false,8 --draws a black screen before showing thumbnailset rect of window "black" to "0,0,640,480"noPaintWhiteshow window "black"end prepWinon goNextlock Screengo nextunlock Screenend goNexton goPrevlock Screengo previousunlock Screenend goPrevon goBacklock Screengo to card "Main Menu" --takes you to this stack main menuunlock Screenend goBackon goEventlock screengo to cd "MAIN MENU"unlock screenend goEventon goSolarlock screengo stack "HOME"unlock screenend goSolar-----------------------------Options Handlers------------------------------on loadTxtglobal marker, printFieldput "PLANETS:MERCURY:MERCURY.TXT" into markerput "MERCURY" into printFieldend loadTxt---------------------------Check Environment Handlers----------------------on cHCinstall-- Check for correct environmentset cursor to busy--if checkEnviron() is not "OK" thengo HomegetHomeInfoexit to HyperCardend ifset cursor to busy--repeat until the lockScreen is falseunlock screenend repeat--end cHCinstallfunction checkEnviron-- The heapspace requirements may vary depending on your stackput MaxDepth() into TheDepthif TheDepth < 4 then errBitDepthif (TheDepth = 1) ¬and (the heapSpace < 2600) then errMemory TheDepth,"1100K"else if (TheDepth = 2) ¬and (the heapSpace < 117200) then errMemory TheDepth,"1200K"else if (TheDepth = 4) ¬and (the heapSpace < 205000) then errMemory TheDepth,"1250K"else if (TheDepth = 8) ¬and (the heapSpace < 384000) then errMemory TheDepth,"1300K"else if (TheDepth = 16) ¬and (the heapSpace < 721000) then errMemory TheDepth,"2400K"else if (TheDepth ≥ 24) ¬and (the heapSpace < 1421000) then errMemory TheDepth,"3000K"else if stackActivate() is not empty thenerrColorreturn "OK"else return "OK"end checkEnvironon mercurySndglobal switchif switch > 0 thenexit mercurySndend ifQTMovie OpenMovie,Plain,"PLANETS:AUDIO:MECURY211KHz Movie", "1005,1005",¬nocontroller,dontPaintWhite,closeOnFinishset the visible of window "MECURY211KHz Movie" to falseend mercurySnd</script>
